home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / antenna / nec4pc / secnds.for < prev   
Text File  |  1994-10-17  |  181b  |  7 lines
  1.       SUBROUTINE SECNDS(X)
  2.       INTEGER*4 IHR,IMIN,ISEC,I100TH
  3.       CALL GETTIM (IHR,IMIN,ISEC,I100TH)
  4.       X=IHR*3600 + IMIN*60 + ISEC + I100TH*.01
  5.       RETURN
  6.       END
  7.